home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / arrange / arrangei.frm < prev    next >
Text File  |  1995-09-06  |  2KB  |  59 lines
  1. VERSION 2.00
  2. Begin Form ArrangeIcons 
  3.    BackColor       =   &H00808080&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Icon Arranger"
  6.    ClientHeight    =   1020
  7.    ClientLeft      =   4380
  8.    ClientTop       =   4185
  9.    ClientWidth     =   3150
  10.    FillStyle       =   0  'Solid
  11.    Height          =   1425
  12.    Icon            =   ARRANGEI.FRX:0000
  13.    Left            =   4320
  14.    LinkMode        =   1  'Source
  15.    LinkTopic       =   "Form1"
  16.    MaxButton       =   0   'False
  17.    ScaleHeight     =   1020
  18.    ScaleWidth      =   3150
  19.    Top             =   3840
  20.    Width           =   3270
  21.    Begin Label Label2 
  22.       Alignment       =   2  'Center
  23.       BackColor       =   &H00C0C0C0&
  24.       BorderStyle     =   1  'Fixed Single
  25.       Height          =   255
  26.       Left            =   120
  27.       TabIndex        =   1
  28.       Top             =   600
  29.       Width           =   2895
  30.    End
  31.    Begin Label Label1 
  32.       Alignment       =   2  'Center
  33.       BackColor       =   &H00C0C0C0&
  34.       BorderStyle     =   1  'Fixed Single
  35.       Height          =   255
  36.       Left            =   120
  37.       TabIndex        =   0
  38.       Top             =   120
  39.       Width           =   2895
  40.    End
  41. End
  42.  
  43. Sub Form_Load ()
  44.    ArrangeIcons.Left = (Screen.Width - ArrangeIcons.Width) / 2
  45.    ArrangeIcons.Top = (Screen.Height - ArrangeIcons.Height) / 2
  46.    ArrangeIcons.WindowState = 1
  47. End Sub
  48.  
  49. Sub Form_Paint ()
  50. If ArrangeIcons.WindowState = 0 Then
  51.    Label1.Caption = "By Martin Brown. Amersham. UK.": Label1.Refresh
  52.    Label2.Caption = "CIS: 100014,1354": Label2.Refresh
  53.    X% = Shell("TaskMan.exe", 1)
  54.    SendKeys "%A", True
  55.    ArrangeIcons.WindowState = 1
  56. End If
  57. End Sub
  58.  
  59.